Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/MacPerl Source ƒ/Perl5/BuildDistr

Text File | 1995-11-06 | 401 b | 29 lines | [TEXT/MPS ]

perl -Sx "{0}" {"Parameters"}
exit

#!perl

($root) = @ARGV;

$/ = ':';

@dirs = (":");

while ($dir = shift @dirs) {
    chomp $dir;
    print "TARGET \"$root$dir\"\n";
    opendir(DIR, "$dir:");
    @newdirs = ();
    while ($item = readdir(DIR)) {
        $item = "$dir:$item";
        if (-d $item) {
            push @newdirs, $item;
        } else {
            print "\t$item\n";
        }
    }
    unshift @dirs, @newdirs;
    closedir(DIR);
    print "\n";
}